100 REM@ S=1024
110 N=1:V=53248:POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR0
120 GOSUB4290:POKE648,192:POKE53265,23:POKE53272,9:POKE650,128:PRINT"[147]";:A=RND(-TI)
130 POKEV+21,0:POKE53282,2:POKE53283,1:POKE53270,216:POKE53281,0:POKE53280,0
140 CD$=""
150 CL$="                                       ":SM$="LOADSTAR!"+CHR$(13)
160 DIMA$(125),A(127),C(12,3),L(3),S(3,2),D(100,1),M$(23),I(4),N$(12),I$(8)
170 DIMTP$(10),TS(10),LS(3),T$(44),PR(4),PR$(4),SP(3)
180 CH$="[208]ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890?!'.$[191][217][180]"
190 READB,C:IFC<>-1THENA(B)=C:GOTO190
200 Z1=1024:Z2=1173:Z3=1180:Z4=1193:FORA=1TO8:READC(A,1):NEXT
210 FORA=1TO12:READC(A,2):NEXT:FORA=1TO8:READC(A,3):NEXT
220 FORA=1TO3:READL(A):NEXT
230 FORA=0TO23:READM$(A):M$(A)="        "+M$(A)+"        ":NEXT
240 FORA=1TO12:READN$(A):NEXT
250 FORA=1TO8:READI$(A):NEXT
260 P4=0
270 FORA=0TO44:READT$(A):NEXT
280 Z=1:JP=56321
290 OPEN15,8,15,"R0:THE BEST=THE BEST":INPUT#15,A$:CLOSE15:IFA$<>"63"THEN6960
300 Z=0
310 OPEN2,8,2,"THE BEST,S,R":FORA=1TO10:INPUT#2,P$(A),A$:TS(A)=VAL(A$)
320 NEXT:INPUT#2,QU$:CLOSE2:ML=12
330 PR(0)=50:PR(1)=15:PR(2)=25:PR(3)=50:PR(4)=30
340 PR$(0)="ROCKET":PR$(1)="FLASHLIGHT":PR$(2)="BOMB":PR$(3)="SHIELD"
350 PR$(4)="SPANNER":SP(1)=57:SP(3)=56
360 GOSUB7110:GOTO2400
370 PRINT"[147]";:POKEV+21,0:POKEV+23,0:FORA=.TO4:I(A)=0:NEXT:CD=2
380 IFPM=0THENL=1
390 DL=0:MB=3:S=.:O8=72:POKESD+5,9:POKESD+6,0:REM BEGIN STAGE
400 POKESD+4,WF:POKESD+1,33:POKESD,135:POKESD+4,17:FORA=1TO50:NEXT:CT=.:WF=16
410 GOSUB5900:POKESD+4,16:POKE53283,C4:POKE53282,C3:POKE646,C2OR8
420 S4=.:PRINT"[147]";:POKE198,.:AC=0:XS=X1:YS=Y1-1:PB=49422:IP=1
430 GOSUB6110:GOSUB6020:TM=MT:S1=.:S3=.:TN=TU:S4=.:POKE198,0
440 X=XS:SC=49352:Y=YS+20:RV=8:OV=10:SP=32:SX=16+X*8:POKEV+1,88
450 POKEV,SX:POKE50168,16:POKEV+39,3:POKEV+21,1:GOSUB790
460 SYSZ4,FS:SYS Z2,33:POKEV+16,0:D1=1:DB=100:ND=0
470 IFBL<>.THENGOSUB6430
480 SX=16+X*8:POKEV,SX:POKE50168,16
490 J=PEEK(JP)AND127:IFJ=111THEN800
500 IF(JAND1)=.THENGOSUB750
510 IF(JAND2)=.THENGOSUB770
520 BX=PEEK(X+SC+40):IFINT(A(BX))=.THEN550
530 ONA(BX)GOTO2830,3380,3390,4210,4200,4240,4220,4230,3020,3510,4270
540 ONA(BX)-11GOTO4310,4340,4390,4430,550,550,4980,5820
550 J=PEEK(JP):IF(JAND4)=.THENDR=-N:BX=PEEK(X+SC+DR):GOTO630
560 IF(JAND8)=.THENDR=N:BX=PEEK(X+SC+DR):GOTO630
570 K=.:TN=TN-N:IFTN<NTHENTN=TU:TM=TM-N:GOSUB790:IFTM<NTHEN2830
580 IFS1=NTHENS3=S3-N:IFS3=.THEN710
590 IFS4=NTHENS5=S5-N:IFS5=.THENS4=.:POKE53283,C4:POKE53282,C3
600 GOTO470
610 IFK=1THEN570
620 GOTO550
630 K=N:D1=DR:DM=.:IFBX=221THEN4390
640 IFINT(A(BX))=.THEN3550
650 PC=17:IFR=.5THENPC=16
660 R=.:ONA(BX)GOTO2830,690,3550,3550,3550,4240,3550,3550,3020,3510
670 ONA(BX)-10GOTO4270,4310,4340,4390,4430,4490,4610,4980,5820
680 GOTO3550
690 POKEV,SX+DR*4:POKE50168,PC:X=X+DR:GOTO570
700 POKEV,SX+DR*4:FORA=NTO50:NEXT:X=X+DR:SX=16+X*8:POKEV,SX:POKE50168,16:GOTO570
710 S1=0:POKE53280,0:IFA(PEEK(X+SC+40))=1THEN2830
720 IFA(PEEK(X+SC))=1THEN2830
730 GOTO600
740 POKEPB+(PP-1)*40,32:POKEPB+(IP-1)*40,106:RETURN
750 PP=IP:IP=IP-1:IFIP<1THENIP=6
760 GOSUB740:RETURN
770 PP=IP:IP=IP+1:IFIP>6THENIP=1
780 GOSUB740:RETURN
790 PRINT""TAB(33)TM"[157] ":RETURN
800 IFIP=6THEN830
810 ONIPGOSUB980,1120,1160,1260,1300
820 GOTO520
830 SYS Z1,10,20,30,1
840 PRINT"";:FORA=1TO24:PRINTTAB(30)"         ":NEXT:PRINT""TAB(31)"[159]GAME"
850 PRINTTAB(31)"PAUSED":PRINT:PRINTTAB(31)"PRESS:"
860 PRINTTAB(31)"A TO":PRINTTAB(31)"ABORT,"
870 PRINTTAB(31)"Q TO":PRINTTAB(31)"QUIT,"
880 PRINTTAB(31)"E TO":PRINTTAB(31)"EXIT THE":PRINTTAB(31)"PROGRAM,"
890 PRINTTAB(31)"OR SPACE":PRINTTAB(31)"TO":PRINTTAB(31)"RETURN"
900 PRINTTAB(31)"TO THE":PRINTTAB(31)"GAME."
910 POKE198,0
920 GETA$:IFA$="A"THENAB=1:GOTO2830
930 IFA$="Q"THEN3560
940 IFA$="E"THEN1350
950 IFA$<>" "THEN920
960 PRINT"";:FORA=1TO24:PRINTTAB(30)"         ":NEXT:PRINT"";:GOSUB6110
970 GOTO520
980 IFI(.)=.THENRETURN
990 I(.)=I(.)-1:PRINT""TAB(33)I(.)""
1000 SYSZ2,129:SYSZ1,0,50,30,20
1010 POKE646,C2OR8:POKE50168,25:POKEV+2,PEEK(V):POKEV+3,PEEK(V+1):POKEV+40,2
1020 POKE50169,26:EX=27:POKEV+21,3
1030 FORA=1TO10:IFA(PEEK(X+SC-40))<>2THENA=10:NEXT:GOTO1110
1040 YZ=YS-5
1050 IFYZ<1THENYZ=YZ+100:GOTO1050
1060 SYS915:PRINT""A$(YZ):Y=Y-1:IFY<1THENY=100
1070 YS=YS-1:IFYS<1THENYS=100
1080 IFBL<>.THENBP=BP+40:IFBP>50151THENBL=0
1090 POKE50169,EX:IFEX=27THENEX=26:NEXT:GOTO1110
1100 EX=27:NEXT
1110 SYS1173,33:POKEV+21,1:POKE50168,16:RETURN
1120 IFI(N)=.THENRETURN
1130 IFS4=NTHENRETURN
1140 I(N)=I(N)-N:PRINT""TAB(33)I(1)""
1150 SYSZ1,10,250,30,100:S5=30:S4=N:POKE53283,11:POKE53282,2:RETURN
1160 IFI(2)=.THENRETURN
1170 I(2)=I(2)-1:PRINT""TAB(33)I(2)"":POKEV+40,10:SYSZ2,129
1180 POKEV+2,PEEK(V):POKEV+3,PEEK(V+1):POKE50169,18:POKEV+21,3
1190 FORA=1TO7:NEXT:POKE50169,19:GOSUB1340:FORA=-41TO-39
1200 IFA(PEEK(X+SC+A))=.5THENPOKEX+SC+A,32
1210 NEXT:POKE50169,20:IFA(PEEK(X+SC-1))=.5THENPOKEX+SC-1,32
1220 IFA(PEEK(X+SC+1))=.5THENPOKEX+SC+1,32
1230 POKE50169,21:FORA=39TO41:IFA(PEEK(X+SC+A))=.5THENPOKEX+SC+A,32
1240 NEXT:POKE50169,22:FORA=1TO7:NEXT:POKE50169,23:FORA=1TO7:NEXT:POKEV+21,1
1250 SYSZ2,33:RETURN
1260 IFS1=1THENRETURN
1270 IFI(3)=.THENRETURN
1280 SYSZ1,190,250,30,20:S1=1:S3=20:POKE53280,1
1290 I(3)=I(3)-1:PRINT""TAB(33)I(3)"":RETURN
1300 IFPEEK(X+SC+40+D1)<>32THENRETURN
1310 IFI(4)=.THENRETURN
1320 SYSZ1,10,50,30,1:POKEX+SC+40+D1,99
1330 I(4)=I(4)-1:PRINT""TAB(33)I(4)"":RETURN
1340 SYSZ1,10,250,30,100:RETURN
1350 POKEV+21,0:POKESD+4,0:POKESD+11,0:POKESD+18,0:POKESD+5,9:POKESD+6,0
1360 PRINT"[153][147]";
1370 SYSZ1,10,171,50,160
1380 PRINT"DO YOU WANT TO:"
1390 PRINT""TAB(7)"1.RESET THE PROGRAM"
1400 PRINT""TAB(7)"2.RETURN TO THE BOOT MENU"
1410 PRINT""TAB(7)"3.RETURN TO LOADSTAR"
1420 RV=9
1430 GETQQ$:QQ=VAL(QQ$):ONQQGOTO1560,1450,1500
1440 GOTO1430
1450 PRINT"[147]";:SYSZ3:POKESD+4,32
1460 OPEN15,8,15,"R0:UPBOOT=UPBOOT":INPUT#15,ER%:CLOSE15
1480 POKE53272,21:POKE648,4:POKE56576,151:POKE53265,27:POKE53270,200:PRINT"[147][154]";
1490 POKE53281,6:POKE53280,14
1495 IFER%<>63THENPRINT"[147]":END
1496 GOTO60000
1500 PRINT"[147]";:SYSZ3:POKESD+4,32
1510 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
1520 IFER%<>63THEN1480
1530 POKE53272,21:POKE648,4:POKE56576,151:POKE53265,27:POKE53270,200:PRINT"[147][158]";
1540 POKE53281,3:POKE53280,10
1550 LOAD "HELLO CONNECT",8
1560 RUN
1570 DATA109,1,125,1,102,1,104,1,92,1,85,1,73,1,36,1,31,1,42,1,72,1,68,1,70,1
1580 DATA32,2,87,3,77,4,78,5,91,6,27,7,29,8,35,9,0,10,82,11,79,12
1590 DATA28,13,59,13.41,60,13.31,71,13.11,90,13.21
1600 DATA74,1,124,1,83,14,75,.5,99,.5,113,.5,88,.5,86,.5,66,15,37,16
1610 DATA41,17,47,18,62,16,96,16,30,16,80,19,100,14,121,4.5,127,5.5,76,2,-1,-1
1620 DATA0,6,14,3,1,3,14,6
1630 DATA0,9,2,8,10,7,1,7,10,8,2,9
1640 DATA0,11,12,15,1,15,12,11
1650 DATA8,12,8
1660 DATA"   BY JOHNNY HARRIS!    "
1670 DATA"   @ 1990 JOHN HARRIS   "
1680 DATA"PUBLISHED ON LOADSTAR 82"
1690 DATA"      PRESS FIRE!!      "
1700 DATA" SO YOU MANAGED TO MAKE "
1710 DATA"  IT THROUGH THE LAST   "
1720 DATA"   SET OF TUNNELS, EH?  "
1730 DATA"WELL, HERE ARE 12 MORE! "
1740 DATA" AND THEY'RE EVEN HARDER"
1750 DATA"      THAN BEFORE!!     "
1760 DATA"YOU THINK YA GOT WHAT IT"
1770 DATA"TAKES? SUUUURE YOU DO..."
1780 DATA" HAHAHAHAHAHAHAHAHA.... "
1790 DATA"  TO ENTER THE CONTROL  "
1800 DATA"SCREEN, TYPE 'LOADSTAR!'"
1810 DATA"    AND PRESS RETURN!   "
1820 DATA"(BUILT-IN ADVERTISMENT!)"
1830 DATA"   I BET YOU'RE SICK    "
1840 DATA" OF EXCLAMATION POINTS! "
1850 DATA"    WELL, I'M NOT!!     "
1860 DATA"!!!!!!!!!!!!!!!!!!!!!!!!"
1870 DATA" NOW I'M SICK OF THEM.  "
1880 DATA"        SEE YA!         "
1890 DATA"                        "
1900 DATA ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,ELEVEN,TWELVE
1910 DATA"ACCESS CARD","FLASHLIGHT","BOMB","SHIELD"
1920 DATA"KEY","ROCKET","SPANNER","1 UP"
1930 DATA" YOU HAVE ESCAPED FROM THE  "
1940 DATA"  PLANET,AND ARE RETURNING  "
1950 DATA"  HOME. I HOPE YOU ENJOYED  "
1960 DATA"  THE GAME! BEFORE I GO, I  "
1970 DATA"  WOULD JUST LIKE TO THANK  "
1980 DATA"  THE EDITORS OF LOADSTAR:  "
1990 DATA" FENDER TUCKER & JEFF JONES "
2000 DATA"","  FOR AGREEING TO PUBLISH   "
2010 DATA"  THIS IN THE FIRST PLACE.  "
2020 DATA"     JARROD HIRAM LOVE      "
2030 DATA"FOR BREAKING MY JOYSTICK SO "
2040 DATA" I WOULD HAVE TO INCLUDE A  "
2050 DATA"    WAY TO PLAY WITH THE    "
2060 DATA"         KEYBOARD.          "
2070 DATA"    DONALD JASON HARRIS     "
2080 DATA"                            "
2090 DATA"FOR TURNING DOWN HIS STEREO "
2100 DATA"   JUST IN TIME FOR ME TO   "
2110 DATA" RETAIN SOME OF MY HEARING. "
2120 DATA"      FURBALL THE CAT       "
2130 DATA"  FOR REMINDING ME TO FEED  "
2140 DATA"HIM(I STILL HAVE THE SCAR), "
2150 DATA" THUS REMINDING ME TO FEED  "
2160 DATA"          MYSELF.           "
2170 DATA"      AND MOM AND DAD       "
2180 DATA"                            "
2190 DATA" FOR PUTTING UP WITH ME FOR "
2200 DATA"SEVENTEEN-AND-A-HALF YEARS. "
2210 DATA"                            "
2220 DATA"  THANKS FOR PLAYING!! YOU  "
2230 DATA"   MIGHT WANT TO SEE WHAT   "
2240 DATA"HAPPENS IF YOU PRESS CTRL-L "
2250 DATA"  AND CTRL-E FROM THE GAME  "
2260 DATA"       CONTROL SCREEN.      "
2270 DATA"   WHAT GOES UP GAME, BOOT  "
2280 DATA" PROGRAM, EDITOR,[160]GRAPHICS, "
2290 DATA"  INSTRUCTIONS AND SUPPORT  "
2300 DATA"  FILES ARE COPYRIGHT 1991  "
2310 DATA"   BY JOHN WILLIAM HARRIS   "
2320 DATA"                            "
2330 DATA"          T  H  E           "
2340 DATA"          E  N  D           "
2350 DATA"                            "
2360 DATA"            BYE!            "
2370 GETA$:IFA$<>""THENRETURN
2380 M=M-1:IFM<>0THEN2370
2390 RETURN
2400 POKE53265,87
2410 PM=0:POKESD+24,15:POKE53283,0:POKEV+21,0:POKEV+39,3:POKEV+1,176:POKEV,8
2420 X=8:M=0:P=1:SS=0:Z=0:POKE53272,9:POKE646,INT(RND(1)*8)+8:SYSZ4,1:SW=1
2430 PRINT"[147]";:FORA=1TO24:PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":NEXT
2440 POKEV+16,0:POKE50168,16:FORA=50169TO50174STEP2:POKEA,40:POKEA+1,41:NEXT
2450 POKE53275,0:IFS<>0THENPRINT""TAB(11)"YOUR SCORE :[158]"S
2460 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
2470 FORA=1TO7:PRINTTAB(9)"[221]                    [221]":NEXT
2480 PRINTTAB(9)"[221]  WHAT GOES UP....  [221]"
2490 PRINTTAB(9)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
2500 PRINT"[159][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157]"CHR$(148)"[192]"
2510 PRINT"                                       "
2520 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157]"CHR$(148)"[192]":PRINT"[145][145][149]";
2530 FORA=0TO2:POKEV+2+(A*4),109+(A*52):POKEV+4+(A*4),133+(A*52)
2540 POKEV+3+(A*4),100:POKEV+5+(A*4),100:NEXT
2550 IFJP=56321THENM$(3)="         PRESS FIRE OR SPACE!!          "
2560 FORA=V+40TOV+45:POKEA,14:NEXT:POKEV+14,172:POKEV+15,120:POKEV+46,3:POKEV+23,128
2570 POKE50175,46:POKEV+21,255:POKE53265,23
2580 A=1:B=INT(RND(1)*3)+1:C=L(B):POKEV+16,0
2590 POKE53283,C(A,B):POKEV+39,C(A,B):A=A+1:IFA>CTHENA=1
2600 X=X+4:IFX>255THENSS=1:POKEV+16,1:X=X-256
2610 POKEV,X:IFZTHENGOSUB2790:GOTO2640
2620 POKE50168,17:IFP=41THENGOSUB2810:IFE=1THENE=0:POKEV,X:POKEV+21,255
2630 Z=NOT Z:IFM=100THENPOKEV+21,0:PRINT"[147]";:GOTO4110
2640 GETA$:IFA$=""THEN2680
2650 IFA$<>MID$(SM$,SW,1)THENSW=1:GOTO2670
2660 SW=SW+1:IFSW>LEN(SM$)THEN6740
2670 IFA$="Q"THEN1350
2680 IF(PEEK(JP)AND127)<>111THEN2590
2690 POKEV+21,254:POKEV+16,0:PRINT"";
2700 PRINT"                                        "
2710 FORA=0TO2:FORB=0TO1:POKE50169+A*2,B+42:NEXT:POKE50169+A*2,40
2720 FORB=0TO1:POKE50170+A*2,B+44:NEXT:POKE50170+A*2,41:NEXT
2730 POKESD+5,0:POKESD+6,249:POKESD+12,0:POKESD+13,240:POKESD+1,0:POKESD+8,0
2740 POKESD+4,129:POKESD+11,17
2750 POKE53283,1:FORA=1TO8:POKE53281,C(A,3)
2760 POKESD+1,A*31:POKESD+8,A/2:FORB=1TO5:NEXT:NEXT:POKESD+8,0:POKE53281,0
2770 POKESD+11,16:POKESD+4,128:FORA=1TO8:POKESD+1,A*31:NEXT:POKESD+1,0
2780 GOTO370
2790 POKE50168,16:A$=MID$(M$(M),P,1):IFA$="@"THENA$="@[146][149]"
2800 PRINT""A$;:P=P+1:Z=NOT Z:RETURN
2810 PRINT:PRINT"[145][145]";:M=M+1:POKEV+21,254:POKEV+16,0:E=1:X=12:IFM>23THENM=100
2820 P=1:RETURN
2830 IFS1=NANDAB=.THEN2960
2840 S1=0:POKE53280,0
2850 AB=.:POKEV+2,PEEK(V):POKEV+3,PEEK(V+1):POKEV+40,7:POKEV+21,3:POKE50169,18
2860 POKESD+4,WF:POKESD+5,0:POKESD+6,245:POKESD+1,96:POKESD,0:POKESD+4,129
2870 FORA=18TO19:POKE50169,A:FORB=1TO4:NEXT:POKESD+1,A*4:NEXT
2880 POKEV+40,1:POKE50169,20:POKEV+21,2
2890 FORB=1TO5:NEXT:POKEV+40,7:POKESD+1,255
2900 FORA=21TO23:POKE50169,A:POKESD+1,(40-A)*12:FORB=1TO7:NEXT:NEXT
2910 POKESD+1,5:POKESD+1,50:POKESD+1,200:POKESD+1,5:POKESD+4,128:POKESD+5,9:POKESD+6,0
2920 POKEV+21,0:FORA=1TO500:NEXT
2930 MB=MB-1
2940 IFMB=0THEN3560
2950 PRINT"[129][147]":GOTO420
2960 IFK=1THEN3000
2970 IFBX<>109ANDBX<>125THEN3380
2980 IFBX=109THEN4210
2990 GOTO4200
3000 IFBX=109ORBX=125THEN3550
3010 GOTO690
3020 IFAC=.THEN3310
3030 POKEV+21,0:POKESD+4,0:FORA=0TO149STEP15:SYSZ1,A,230,100,125:FORB=1TO50
3040 NEXT:POKESD+4,32:NEXT:SYSZ1,0,255,100,200:S1=0:POKE53280,0
3050 POKE50168,16
3060 POKE53282,0:POKE53283,0:SYSZ1,0,11,20,10:PRINT"";:FORA=1TO24
3070 PRINT"[189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]":NEXT
3080 IFPM=1THEN2400
3090 POKESD+4,32:POKESD+5,0:POKESD+6,240
3100 PRINT"                            ":FORA=1TO7:SYS915:NEXT
3110 IFL<MLTHENPRINT"NOW ENTERING THE NEXT STAGE!":SYS915
3120 PRINT"                            ":FORA=1TO2:SYS915:NEXT
3130 DB=(2^ND)*100:IFDB>100000THENDB=100000
3140 PRINT"DISK BONUS="DB:SYS915:PRINT"                  "
3150 PRINT"                            ":FORA=1TO2:SYS915:NEXT
3160 PRINT"TIME LEFT="TM:SYS915:PRINT"               "
3170 FORA=1TO3:SYS915:NEXT
3180 PRINT"STAGE "N$(L)" COMPLETED!":SYS915
3190 PRINT"                         ":FORA=1TO4:SYS915:NEXT
3200 PRINT""TAB(15-(LEN(EM$)/2))EM$:SYS915
3210 PRINT"                         ":SYS915:SYS915:IFTM=0THEN3270
3220 B=TM/5:C=255/B:D=255
3230 FORA=TMTO5STEP-5:POKE214,11:PRINT:PRINTTAB(13)""A"[157] ":S=S+125
3240 PRINT""TAB(30)S:SYS1024,D,255,3,50:D=D-C:NEXT
3250 A=A+5:IFA=0THEN3270
3260 S=S+ABS(A)*25:POKE214,11:PRINT:PRINTTAB(13)""0"[157] ":PRINT""TAB(30)S
3270 S=S+5000:L=L+1:POKESD+4,32:POKESD+5,9:POKESD+6,0
3280 POKE214,14:PRINT:PRINTTAB(14)""0"[157]      ":S=S+DB:PRINT""TAB(30)S
3290 SYSZ1,90,120,50,5:FORA=1TO2700:NEXT:IFL<=MLTHENPRINT"[147]";:GOTO400
3300 GOTO5020
3310 ND=0:POKEV+21,0:X=X1:YS=Y1-1:Y=YS+20:GOSUB6020
3320 SX=24+(X-1)*8:POKEV,SX:POKEV+21,1:GOTO610
3330 POKE646,C2OR8:POKE214,23:PRINT:PRINT""A$(Y)"[221][146]";:SYS828
3340 Y=Y+1:IFY>100THENY=Y-100
3350 YS=YS+1:IFYS>100THENYS=YS-100
3360 IFBL<>.THENBP=BP-40:IFBP<49152THENBL=0
3370 RETURN
3380 GOSUB3330:GOTO550
3390 POKESD+4,32:POKESD+5,0:POKESD+6,240:FORA=28TO31:POKE50168,A:FORB=1TO10:NEXT:NEXT
3400 FORA=255TO55STEP-20:SYSZ1,255,A,15,A/5:GOSUB3330:NEXT
3410 DC=.:FORA=31TO28STEP-1:POKE50168,A:FORB=1TO10:NEXT:NEXT
3420 POKE50168,16:POKESD+4,32:POKESD+5,9:POKESD+6,0:GOTO550
3430 IFX<1ORX>27THENS1=0:POKE53280,0:GOTO2830
3440 POKESD+4,WF:POKESD+5,0:POKESD+6,240:POKESD+1,108:POKESD+4,129
3450 POKESD+12,0:POKESD+13,240:POKESD+8,135:POKESD+11,33
3460 FORA=28TO31:POKESD+1,A*2:POKESD+8,A
3470 POKE50168,A:NEXT:SX=16+X*8:POKEV,SX:POKESD+1,255:POKESD+8,255
3480 FORA=31TO28STEP-1:POKESD+1,A*3:POKESD+8,A:POKE50168,A:NEXT
3490 POKESD+1,0:POKESD+8,0:POKESD+4,128:POKESD+11,32:POKESD+5,9:POKESD+6,0
3500 POKESD+12,9:POKESD+13,0:GOTO470
3510 S=S+50:PRINT""TAB(30)S:DL=DL+1:IFDL>999THENDL=999
3520 PRINT""TAB(33)""DL
3530 SYS Z1,80,100,13,5
3540 GOTO5880
3550 SYSZ1,20,80,12,252:POKE50168,SP(D1+2):GOTO570
3560 S1=.:AB=.:POKE53280,0:POKEV+21,0:IFPM=1THEN2400
3570 POKESD+4,0:POKESD+5,0:POKESD+6,240
3580 SYS1180:A=FRE(.):GOSUB4170:SYSZ2,33:POKE53282,1:POKE53283,6
3590 PRINT"[151]G A M E  O V E R":SYSZ4,1
3600 FORA=127TO.STEP-2:SYSZ1,A,A*2,15,244:FORB=1TO50:NEXT:NEXT
3610 FORA=1TO1500:NEXT:POKESD+4,32:POKESD+5,9:FORA=1TO20:SYS915:NEXT
3620 IFS<=TS(10)THEN4110
3630 P=10
3640 IFTS(P)<=STHENP=P-1:IFP>0THEN3640
3650 P=P+1:PRINT""TAB(31)"YOUR"
3660 PRINTTAB(31)"SCORE":PRINTTAB(30)""S
3670 PRINT""TAB(31)"GREAT!!":PRINTTAB(31)"YOU HAVE"
3680 PRINTTAB(31)"MADE IT":PRINTTAB(31)"ON THE"
3690 PRINTTAB(31)"HIGH":PRINTTAB(31)"SCORE"
3700 PRINTTAB(31)"TABLE!":PRINTTAB(31)"ENTER"
3710 PRINTTAB(31)"YOUR":PRINTTAB(31)"NAME:"
3720 PRINTTAB(30)"[158]RANK NO."
3730 PRINTTAB(31)""N$(P);:IFP=1THENPRINT"!!"
3740 POKE214,17:PRINT:PRINTTAB(30)"---------[157][157][157][157][157][157][157][157][157]";
3750 POKESD+5,9:POKESD+6,0:SYSZ2,33
3760 PRINT"[208][157]";:CP=1:N$="":F=0:POKE53270,200:C=INT(RND(1)*3)+1:D=1
3770 F=0:GETA$:IFA$<>""THEN3860
3780 J=PEEK(56320)AND127
3790 IFJ=126THENF=1:CP=CP+1:IFCP>LEN(CH$)THENCP=1
3800 IFJ=125THENF=1:CP=CP-1:IFCP<1THENCP=LEN(CH$)
3810 IFJ=111THENF=2
3820 IFF=2THEN3990
3830 IFF=1THENSYSZ1,150,170,3,10
3840 PRINTMID$(CH$,CP,1)"[157]";:POKE646,C(D,C):D=D+1:IFD>L(C)THEND=1
3850 GOTO3770
3860 CP=1:PRINTMID$(CH$,CP,1)"[157]";
3870 IFA$=CHR$(13)THEN4050
3880 IFA$=CHR$(20)ANDLEN(N$)>0THENGOSUB3960:GOTO3770
3890 IFA$=" "THEN3940
3900 IFA$>="A"ANDA$<="Z"THEN3940
3910 IFA$>="0"ANDA$<="9"THEN3940
3920 IFA$="!"ORA$="?"ORA$="."ORA$="$"THEN3940
3930 SYS1024,0,20,10,2:GOTO3770
3940 SYSZ1,50,170,35,10:PRINT"[158]"A$;:N$=N$+A$:IFLEN(N$)=9THEN4050
3950 PRINTMID$(CH$,CP,1)"[157]";:GOTO3770
3960 SYSZ1,50,170,20,250
3970 PRINT"[146]-[157][157]"MID$(CH$,CP,1)"[157]";:N$=LEFT$(N$,LEN(N$)-1):RETURN
3980 IFA$=CHR$(20)ANDLEN(N$)>0THENPRINT"[146]-[157][157]"MID$(CH$,CP,1)"[157]";
3990 IFCP=45THENPRINT" ";:GOTO4050
4000 IFCP=44ANDLEN(N$)>0THENGOSUB3960:GOTO3770
4010 IFCP=44THEN3840
4020 SYSZ1,50,170,35,10
4030 N$=N$+MID$(CH$,CP,1):IFLEN(N$)=9THENPRINT"[158]"MID$(CH$,CP,1)"";:GOTO4050
4040 PRINT"[158]"MID$(CH$,CP,1)""MID$(CH$,CP,1)"[157]";:GOTO3770
4050 IFN$=""THENN$="??????????"
4060 POKE53270,216:SYSZ1,64,192,60,20:FORA=1TO2000:NEXT
4070 FORA=9TOPSTEP-1:P$(A+1)=P$(A):TS(A+1)=TS(A):NEXT
4080 P$(P)=N$:TS(P)=S:IFP=1THENGOSUB6550
4090 OPEN15,8,15,"S0:THE BEST":CLOSE15:OPEN2,8,2,"THE BEST,S,W"
4100 FORA=1TO10:PRINT#2,P$(A):PRINT#2,TS(A):NEXT:PRINT#2,QU$:CLOSE2:GOTO4120
4110 POKEV+21,0:PT=0
4120 GOSUB4170:PRINT"";
4130 FORA=10TO2STEP-1:PRINT"[158]"TAB(3)P$(A)TAB(15)TS(A)"[145]":SYS915:SYS915:NEXT
4140 PRINT"[159]"QU$"[145]":SYS915:PRINT""TAB(3)P$(A)TAB(15)TS(1)"[145]":SYS915:SYS915
4150 PRINT"--- [159]THE ALL-TIME BEST: ---"
4160 FORA=1TO5000:NEXT:GOTO2400
4170 PRINT"";:FORA=1TO24:PRINT"[221][146]                            [221][146]        ";
4180 PRINTCHR$(20)" ":NEXT
4190 PRINT"[221][146]                            [221][146]        ":POKE50152,32:RETURN
4200 DR=-N:R=A(BX)-INT(A(BX)):BX=PEEK(X+SC+DR):GOTO630
4210 DR=N:R=A(BX)-INT(A(BX)):BX=PEEK(X+SC+DR):GOTO630
4220 X=X-5:GOTO3430
4230 X=X+5:GOTO3430
4240 FORA=1TO100STEP10:SYS 1024,A,255,3,50:FORB=1TO20:NEXT:NEXT
4250 PRINT""TAB(36);:POKE646,C2OR8:PRINT"[146][219]":KY=1
4260 GOTO5880
4270 ND=ND+1:SYSZ1,10,100,10,20:IFK=1THENPOKEX+SC+DR,32:GOTO610
4280 POKEX+SC+40,32:GOTO610
4290 SD=54272:FORA=SDTOSD+24:POKEA,0:NEXT:POKESD+24,15:POKESD+5,9:POKESD+6,0
4300 RETURN
4310 PRINT""TAB(32):POKE646,C2OR8:PRINT"[146][207]":AC=1
4320 SYS Z1,150,250,70,220:IFK=1THENPOKEX+SC+DR,32:GOTO610
4330 POKEX+SC+40,32:GOTO610
4340 S=S+1000:PRINT""TAB(30)S:SYS Z1,80,200,27,20:IM=INT((A(BX)-13)*10)
4350 IFI(IM)<9THENI(IM)=I(IM)+1
4360 POKE214,5+IM:PRINT:PRINTTAB(33)""I(IM)
4370 IFK=.THENPOKEX+SC+40,32:GOTO550
4380 POKEX+SC+DR,32:GOTO570
4390 A=YS:IFK=.THENA=A+N:IFA>100THENA=N
4400 POKEV+21,0:X=D(A+1,0):YS=D(A+1,1)-1:IFX=.ORYS=.THEN3310
4410 Y=YS+20:GOSUB6020
4420 SX=24+(X-1)*8:POKEV,SX:POKEV+21,1:GOTO610
4430 S=S+500:PRINT""TAB(30)S:DL=DL+5:IFDL>999THENDL=999
4440 PRINT""TAB(33)""DL
4450 SYSZ1,80,100,13,230
4460 IFK=NTHENPOKEX+SC+DR,32:GOTO570
4470 POKEX+SC+40,32:GOTO550
4480 POKE648,192:POKE53272,9:PRINT"[147]";:CLR:END
4490 IFBL<>.THEN3550
4500 A=PEEK(X+SC+DR*2):IFA=221THENPOKEX+SC+DR,32:GOTO610
4510 IFA(A)=NTHENPOKEX+SC+DR,32:GOTO610
4520 IFA<>32THEN4570
4530 BL=PEEK(X+SC+DR):POKEX+SC+DR,32:POKEX+SC+DR*2,BL
4540 Q=PEEK(X+SC+DR*2+40):IFQ=32ORQ=77ORQ=78THENBP=X+SC+DR*2:GOTO610
4550 IFA(Q)=NTHENPOKEX+SC+DR*2,32:BL=0:GOTO610
4560 BL=0:GOTO610
4570 A=X+SC+DR:B=PEEK(A):IFB=62THENSYSZ1,0,10,10,2:POKEA,47:GOTO610
4580 IFB=96THENSYSZ1,0,10,10,2:POKEA,82:GOTO610
4590 IFB=30THENSYSZ1,0,10,10,2:POKEA,.:GOTO610
4600 GOTO3550
4610 POKEV+21,0:PRINT"                            ":FORA=1TO24:SYS915:NEXT
4620 PRINT"HIYA!"
4630 PRINT"WE DON'T GET MANY VISITORS"
4640 PRINT"HERE. WHAT DO YA WANT TO"
4650 PRINT"BUY?"
4660 FORA=1TO3:PRINT""A"-";I$(S(A,1))
4670 PRINT"FOR $"S(A,2):NEXT
4680 PRINT"PRESS SPACE TO LEAVE":POKE198,0:P1=1
4690 POKE55659+(P1-1)*120,9:POKE49515+(P1-1)*120,106
4700 JY=PEEK(56320)AND127:IFJY=126THENGOSUB4960:P1=P1-1:IFP1<1THENP1=4
4710 IFJY=125THENGOSUB4960:P1=P1+1:IFP1>4THENP1=1
4720 IFJY=111THEN4940
4730 GETA$:IFA$=""THEN4690
4740 IFA$=" "THEN4970
4750 IFA$<"1"ORA$>"3"THEN4690
4760 A=VAL(A$):IFS(A,2)>DLTHEN4690
4770 DL=DL-S(A,2):ONS(A,1)GOSUB4790,4800,4820,4840,4860,4880,4900,4920
4780 GOSUB6110:GOTO4690
4790 SYS Z1,150,250,70,220:AC=1:RETURN
4800 IFI(1)<9THENI(1)=I(1)+1
4810 SYS Z1,80,200,50,20:RETURN
4820 IFI(2)<9THENI(2)=I(2)+1
4830 SYS Z1,80,200,50,20:RETURN
4840 IFI(3)<9THENI(3)=I(3)+1
4850 SYS Z1,80,200,50,20:RETURN
4860 FORA=1TO100STEP10:SYS 1024,A,255,3,50:FORB=1TO20:NEXT:NEXT
4870 KY=1:RETURN
4880 IFI(.)<9THENI(.)=I(.)+1
4890 SYS Z1,80,200,50,20:RETURN
4900 IFI(4)<9THENI(4)=I(4)+1
4910 SYS Z1,80,200,50,20:RETURN
4920 IFMB<9THENMB=MB+1
4930 SYS Z1,100,250,50,20:RETURN
4940 IFP1=4THEN4970
4950 A$=RIGHT$(STR$(P1),1):GOTO4760
4960 POKE49515+(P1-1)*120,32:RETURN
4970 BL=0:GOSUB6020:POKEV+21,1:GOTO570
4980 SYS Z1,100,250,50,20:IFMB<9THENMB=MB+1
4990 PRINT""TAB(33)MB
5000 IFK=1THENPOKEX+SC+DR,32:GOTO610
5010 POKEX+SC+40,32:GOTO610
5020 V=53248:POKEV+21,0:POKEV+16,0:SYS1180:SYS1193,20:POKE198,0
5030 PRINT"[147]YOU HAVE MADE IT THROUGH THE LAST"
5040 PRINT"TUNNEL!!!"
5050 FORA=1TO2500:NEXT
5060 PRINT"YOU ARRIVE AT THE SPACE PORT. ROLLING"
5070 PRINT"UP TO THE COUNTER, YOU READ THE RATES"
5080 PRINT"FOR OUTGOING SHUTTLES. THEY COST $300."
5090 M=800:GOSUB2370
5100 PRINT"[147]YOU HAVE $"DL"."
5110 PRINT"YOU NEED $ 300 ."
5120 FORA=1TO2500:NEXT
5130 FORA=.TO4:IFI(A)=0THENNEXT:GOTO5160
5140 GOSUB5250:PRINT"[158]YOU HAVE"I(A)"[158]"PR$(A);A$",WORTH $"I(A)*PR(A)
5150 DL=DL+I(A)*PR(A):NEXT
5160 IFKY=1THENPRINT"[158]YOU ALSO HAVE A KEY WORTH $100.":DL=DL+100
5170 M=800:GOSUB2370
5180 PRINT"[147]";:IFDL=>300THEN5210
5190 PRINT"SORRY,YOU DON'T HAVE ENOUGH CASH."
5200 FORA=1TO4000:NEXT:GOTO3560
5210 PRINT"YOU DID IT!!":DL=DL-300
5220 PRINT"EACH DOLLAR BRINGS YOU 50 POINTS."
5230 PRINT"[158]$"DL"[159]X[158] 50 [159]="DL*50:S=S+DL*50
5240 FORA=1TO4500:NEXT:GOTO5270
5250 A$="":IFI(A)>1THENA$="S"
5260 RETURN
5270 POKE53281,0:POKE53272,9
5280 POKEV+21,0:POKEV+23,0:POKEV,24:POKEV+1,200:GOSUB4170:PRINT"";:FORA=1TO20
5290 PRINT"[189][189][189][189][189][189][189][189][189][189][189][159][189][189] [189][159][189][189][189][189][189][189][189][189][189][189][189][189][189]":NEXT
5300 FORA=1TO4:PRINT"[189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]":NEXT
5310 PRINT"[189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]";
5320 PRINT"             ";
5330 POKE50168,16:POKE50169,35:POKEV+2,128:POKEV+3,201:POKEV+40,1:POKEV+39,3
5340 MS=0:POKEV+21,1:FORA=24TO128STEP4:MS=NOT(MS):POKEV,A:POKE50168,16+ABS(MS)
5350 FORB=1TO70:NEXT:NEXT
5360 POKEV+21,3:FORA=1TO6:SYS915:POKE49966,221:NEXT
5370 FORA=12TO1STEP-1:PRINT"[158]"TAB(17)N$(A):SYS915:POKE49966,221
5380 PRINT""TAB(17)"[189][189][189][189][189][189][189][189][189]":SYS915:POKE49966,221
5390 FORB=1TO13:SYS915:POKE49966,221:NEXT:NEXT
5400 FORA=49966TO49152STEP-40:POKEV+1,PEEK(V+1)-8:POKEV+3,PEEK(V+3)-8
5410 POKEA,221:FORB=1TO55:NEXT:NEXT
5420 POKEV+21,0:POKE53275,254:FORA=4TO15STEP2:POKEV+A,INT(RND(1)*188)+40
5430 POKEV+A+1,INT(RND(1)*256):NEXT:POKEV,128:POKEV+1,200:POKE50168,32
5440 POKEV+2,128:POKEV+3,216:POKEV+40,2:POKE50169,33:FORA=41TO46:POKEV+A,1:NEXT
5450 FORA=0TO5:POKEV+41+A,11+INT(RND(1)*1):POKE50170+A,36+INT(RND(1)*3):NEXT
5460 FORA=1TO1000:NEXT:PRINT"";
5470 GOSUB4170
5480 PRINT""TAB(7)"[196][198][197]"
5490 PRINTTAB(4)"[197][159][210][211][212][197][196][196]"
5500 PRINTTAB(3)"[159][210][212]"TAB(21)"[197]"
5510 PRINTTAB(12)"[198][196][198][197][196]"
5520 PRINTTAB(24)"[159][210][211][212]"
5530 PRINTTAB(4)"[163][163][163][163][163][163]"
5540 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
5550 FORA=1TO11:PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]":NEXT
5560 FORA=1TO6:PRINT"[189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]":NEXT:PRINT"";
5570 POKEV+21,253
5580 FORA=1TO2500:NEXT:PRINT"[158]"TAB(30)"WOW! IT'S"
5590 PRINTTAB(30)"HARD TO":PRINTTAB(30)"BELIEVE"
5600 PRINTTAB(30)"SOMEONE":PRINTTAB(30)"HAS"
5610 PRINTTAB(30)"MADE IT"
5620 PRINTTAB(30)"THIS FAR!"
5630 PRINTTAB(30)"GAME'S":PRINTTAB(30)"OVER."
5640 PRINTTAB(30)"100000":PRINTTAB(30)"BONUS"
5650 S=S+100000:PRINTTAB(30)"FINAL":PRINTTAB(30)"SCORE:"
5660 PRINTTAB(30)"[159]"S:FORA=1TO5000:NEXT:SYS915
5670 PRINT"                           "
5680 POKEV+21,255:D1=0:POKESD+5,11:POKESD+6,0:SYSZ2,129:SYSZ1,0,255,255,128
5690 FORA=1TO24:SYS915:NEXT:GOSUB5810:SYS1225:POKESD+4,128:POKESD+5,4:POKESD+6,0
5700 FORA=1TO100:GOSUB5810:NEXT
5710 SYS1173,33:FORA=0TO44STEP5:PRINT""
5720 FORB=ATOA+4:PRINT"";:FORC=1TOLEN(T$(B)):A$=MID$(T$(B),C,1)
5730 IFA$=" "THENPRINT" ";:GOTO5750
5740 PRINT""A$;:SYSZ1,100,175,3,25:FORD=1TO30:NEXT
5750 GOSUB5810:NEXT:PRINT:PRINT:FORC=1TO4:GOSUB5810:NEXT:NEXT
5760 FORB=1TO75:GOSUB5810:NEXT:PRINT"":FORB=1TO9
5770 PRINT"                           ":GOSUB5810:NEXT:NEXT
5780 POKESD+5,12:POKESD+6,0:SYSZ2,129:SYSZ1,1,255,255,65
5790 FORA=PEEK(V+1)TO0STEP-5:POKEV+1,A:POKEV+3,A+16:GOSUB5810:NEXT
5800 FORA=1TO2500:NEXT:SYS1180:POKESD+4,128:GOTO3560
5810 D1=NOT D1:POKE50169,33+ABS(D1):RETURN
5820 IFKY=0THEN3550
5830 POKEV+21,0:SYS Z1,0,250,200,200:S1=0:POKE53280,0
5840 IFL=12THEN5020
5850 IFL=>10THENL=12:GOTO5870
5860 L=L+3:FORA=1TO4500:NEXT
5870 POKE53281,1:FORA=1TO500:NEXT:POKE53281,0:GOTO400
5880 IFK=1THENPOKEX+SC+DR,32:GOTO610
5890 POKEX+SC+40,32:GOTO610
5900 IFL=LLTHENYW=100:A=FRE(.):RETURN
5910 PRINT"[147]";TAB(20-(LEN(N$(L))+14)/2);
5920 PRINT"LOADING STAGE "N$(L)
5930 OPEN15,8,15,"R0:STAGE"+STR$(L)+"=STAGE"+STR$(L):INPUT#15,A$,B$,C$,D$
5940 CLOSE15:IFA$<>"63"THEN6930
5950 OPEN2,8,2,"STAGE"+STR$(L)+",P,R":INPUT#2,C4,C3,C2
5960 FORA=1TO3:FORB=1TO2:INPUT#2,S(A,B):NEXT:NEXT
5970 INPUT#2,SN$:INPUT#2,EM$:INPUT#2,X1:INPUT#2,Y1:INPUT#2,FS
5980 PRINT""TAB(20-((LEN(SN$)+2)/2))CHR$(34)SN$CHR$(34)
5990 FORA=NTO100:INPUT#2,A$(A):GET#2,A$:D(A,.)=ASC(A$)-1:GET#2,A$
6000 D(A,1)=ASC(A$)-1:NEXT:INPUT#2,TU,MT:CLOSE2:YW=100:LL=L:A=FRE(.):RETURN
6010 REM DISPLAY STAGE
6020 SYSZ4,FS:PRINT"";:IFS4=.THENPOKE53283,C4:POKE53282,C3
6030 POKE646,C2OR8:SYSZ1,10,50,65,4:FORA=YS-4TOYS+19:B=A
6040 IFB<1THENB=B+100
6050 IFB>100THENB=B-100:GOTO6050
6060 PRINT"[221][146]";:POKE646,C2OR8
6070 PRINTA$(B)"[221]":NEXT:B=B+1
6080 IFB>100THENB=YW+(B-101):GOTO6080
6090 PRINT"[221][146]";:POKE646,C2OR8:PRINTA$(B)"[221][146]";:RETURN
6100 REM PRINT STATS.
6110 PRINT""TAB(31)"SCORE:"
6120 PRINTTAB(30)""S
6130 PRINT""TAB(30)"";:POKE646,C2OR8:PRINT"@="DL"[157]  "
6140 PRINTTAB(30)"[151][209]="MB"[157] "
6150 PRINTTAB(30)"T="
6160 PRINTTAB(30);:POKE646,C2OR8:PRINT" \="I(.)
6170 PRINTTAB(30);:POKE646,C2OR8:PRINT" [199]="I(1)
6180 PRINTTAB(30);:POKE646,C2OR8:PRINT" [218]="I(2)
6190 PRINTTAB(30);:POKE646,C2OR8:PRINT" <="I(3)
6200 PRINTTAB(30);:POKE646,C2OR8:PRINT" ;="I(4)
6210 PRINTTAB(30)" PAUSE"
6220 PRINT""TAB(30)"C[213][192][201]K[213][192][201]":PRINT""TAB(30)"A[221] ";
6230 IFAC=1THENPRINT"[157]";:POKE646,C2OR8:PRINT"[146][207]";
6240 PRINT"[221]E[221] ";:IFKY=1THENPRINT"[157]";:POKE646,C2OR8:PRINT"[146][219]";
6250 PRINT"[221]"
6260 PRINT""TAB(30)"R[202][192][203]Y[202][192][203]":PRINT""TAB(30)"D"
6270 POKEPB+(IP-1)*40,106:RETURN
6280 POKEV+21,0:PRINT"[147]WHAT GOES UP... STAGE TEST:"
6290 PRINT"USE + AND - TO CHOOSE A STAGE,THEN"
6300 PRINT"PRESS RETURN TO LOAD IT."
6310 PRINT"SPACE RETURNS TO THE TITLE SCREEN."
6320 IFL<1ORL>12THENL=1
6330 PRINT"STAGE "N$(L)
6340 GETA$:IFA$="+"THENL=L+1:GOTO6390
6350 IFA$="-"THENL=L-1:GOTO6390
6360 IFA$=" "THEN2400
6370 IFA$<>CHR$(13)THEN6340
6380 PM=1:GOTO370
6390 IFL<1THENL=12
6400 IFL>12THENL=1
6410 PRINT"[145]STAGE "N$(L)"        "
6420 GOTO6340
6430 A=PEEK(BP+40):ONA(A)GOTO6540,6440,6440,6460,6470
6440 IFA=32THENBP=BP+40:GOTO6520
6450 BL=.:RETURN
6460 DR=1:GOTO6480
6470 DR=-1
6480 IFA(PEEK(BP+DR))=1THEN6540
6490 A=PEEK(BP+DR):IFA=221THEN6540
6500 IFPEEK(BP+DR)<>32THENBL=.:RETURN
6510 POKEBP,32:BP=BP+DR:POKEBP,BL:RETURN
6520 IFBP>50176THENBL=0:RETURN
6530 POKEBP-40,32:POKEBP,BL:RETURN
6540 POKEBP,32:BL=0:RETURN
6550 Z1=1024:PRINT"[159]AWESOME! YOU'VE GOT THE TOP"
6560 PRINT"POSITION ON THE HIGH SCORE"
6570 PRINT""TAB(10)"TABLE!!"
6580 PRINT"ENTER A MASSAGE FOR THE"
6590 PRINT""TAB(8)"OTHER GUYS!"
6600 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221]"TAB(27)"[221]"
6610 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][145][145]":PRINT"[158][208][157]";:QU$=""
6620 GETA$:IFA$=""THEN6620
6630 IFA$=CHR$(13)THEN6710
6640 IFA$=CHR$(20)ANDLEN(QU$)>0THEN6700
6650 IFA$<" "ORA$>CHR$(95)THEN6620
6660 IFA$=CHR$(34)ORA$=","ORA$=":"THEN6620
6670 SYSZ1,50,170,25,10
6680 PRINT"[159]"A$;:QU$=QU$+A$:IFLEN(QU$)=25THEN6710
6690 PRINT"[158][208][157]";:GOTO6620
6700 SYSZ1,50,170,20,250:QU$=LEFT$(QU$,LEN(QU$)-1):PRINT" [157][157][208][157]";:GOTO6620
6710 IFLEN(QU$)<24THENPRINT" "
6720 SYSZ1,64,192,74,8:FORA=1TO2000:NEXT
6730 RETURN
6740 POKEV+21,0:POKEV+16,0:PRINT"[147][159]WHAT GOES UP... GAME CONTROL SCREEN"
6750 PRINT"PLEASE ENTER YOUR COMMAND:"
6760 PRINT"[158]HIT P FOR PRACTICE MODE,"
6770 PRINT"[158]    E TO ERASE HIGH SCORES,"
6780 PRINT"[158]    Q TO RETURN TO THE BOOT MENU,"
6790 PRINT"[158]    H TO DISPLAY HIGH SCORES,"
6800 PRINT"[158] OR SPACE FOR THE TITLE SCREEN."
6810 GETA$:IFA$="P"THEN6280
6820 IFA$="E"THEN6960
6830 IFA$="Q"THEN1350
6840 IFA$="H"THEN4110
6850 IFA$=" "THEN2400
6860 IFA$=""THENS=0:GOTO5020
6870 IFA$=""THENS=0:GOTO5270
6880 IFA$<>""THEN6810
6890 PRINT"[147][159]THIS IS DOWN DOWN DOWN II"
6900 PRINT"VERSION 1.00"
6910 PRINT"@ 1990 JOHN WILLIAM HARRIS"
6920 FORA=1TO5000:NEXT:GOTO2400
6930 PRINT"[147][159]DISK ERROR"
6940 PRINT"[159]"A$,B$
6950 PRINT"[159]"C$,D$:FORA=1TO5000:NEXT:GOTO3560
6960 POKEV+21,0:IFZ=1THENZ=0:GOTO7010
6970 POKEV+21,0:PRINT"[147]DO YOU WANT TO ERASE THE TOP SCORE"
6980 PRINT"TABLE? (Y/N)"
6990 GETA$:IFA$="N"THEN2400
7000 IFA$<>"Y"THEN6990
7010 OPEN15,8,15,"S0:THE BEST":CLOSE15:OPEN2,8,2,"THE BEST,S,W"
7020 P$(1)="MAD GAMER":TS(1)=1000000:P$(2)="J HARRIS":TS(2)=500000
7030 P$(3)="LOADSTAR":TS(3)=400000:P$(4)="SPHEROID":TS(4)=300000
7040 P$(5)="64 LIVES!":TS(5)=250000:P$(6)="WHO ME?":TS(6)=200000
7050 P$(7)="THE ZONE":TS(7)=150000:P$(8)="HAHAHA...":TS(8)=100000
7060 P$(9)="FURBALL":TS(9)=50000:P$(10)="GAME OVER":TS(10)=10000
7070 QU$="HA! YOU'LL NEVER BEAT ME! "
7080 FORA=1TO10:PRINT#2,P$(A):PRINT#2,TS(A):NEXT:PRINT#2,QU$:CLOSE2
7090 PRINT"DONE.":FORA=1TO1500:NEXT:GOTO2400
7100 FORA=1TO1500:NEXT:GOTO2400
7110 PRINT"[158]DO YOU WANT TO PLAY WITH:"
7120 PRINT"1[159]:A JOYSTICK IN PORT 2"
7130 PRINT"2[159]:A JOYSTICK IN PORT 1/KEYBOARD."
7140 GETA$:IFA$="1"THENJP=56320:PRINT"[147]";:RETURN
7150 IFA$<>"2"THEN7140
7160 PRINT"[147][159]IF YOU ARE USING THE KEYBOARD, USE THE"
7170 PRINT"CONTROL AND 2 KEYS TO MOVE LEFT AND"
7180 PRINT"RIGHT, AND THE 1 AND BACK ARROW KEYS"
7190 PRINT"INSTEAD OF UP AND DOWN. SPACE"
7200 PRINT"FUNCTIONS AS THE FIRE BUTTON."
7210 PRINT"PRESS FIRE OR SPACE TO START."
7220 IFPEEK(56321)<>239THEN7220
7230 JP=56321:PRINT"[147]";:RETURN
60000 A$="UPBOOT":OPEN15,8,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15
60010 IF ER<>63 THEN PRINT"[147]":END
60011 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
60020 PRINT"LOAD"Q$A$Q$",8"
60030 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END